          SUBROUTINE (PASSER)
** Version# 8.0003[2] - 03/03/2014 - 12:57pm - TSMITH - eclipse
*** V8.0003 Change - Custom Coding . - 03/03/2014 - TSMITH - eclipse
** Copied from CBP POE.DVR.BO.GPS Version# 8.0002 - 10/29/2013 - 10:42am - TSMITH - eclipse
*** V8.0002 Change - Custom Coding . - 10/29/2013 - TSMITH - eclipse
** Copied from BP POE.DVR.BO Version# 8 - 05/27/2011 - 04:20pm - NKURTH - main
*-------------------------------------------------------------------------*
*** Subroutine: POE.DVR.BO
*-------------------------------------------------------------------------*
*** This is the driver for the Product Backorder Report.
*-------------------------------------------------------------------------*
*** Parameter:  PASSER not used
*-------------------------------------------------------------------------*
*** Common Variables:
*-------------------------------------------------------------------------*

          WINDOW ,,,,9,'POE.DVR.BO.GPS.BETA'

          MENU.LOAD  2,12,5,1,'P'
          MENU.LOAD 10,12,4,1,'H'
          MENU.LOAD 17,12,4,1,'O'
          MENU.LOAD 24,12,9,5,'L'

          BRCHS     = ''
          PLINES    = ''
          WRITER    = ''
          TERR.TYPE = 1
          DET       = 'All'
          EX.NS     = 'Include'
          DRPT$     = 'Product Backorder Report'
          PLBRK     = 'No'
          PRT.PRC   = ''
          NEG.ONH   = YES
*-------------------------------------------------------------------------*
INBR:     INP.BR 15,3,10,BR,NAME,BRCHS,TERR.TYPE
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INBR,INBR,INBR,INBR,INWRITE,INWRITE
*-------------------------------------------------------------------------*
INWRITE:  INP WRITER,15,4,10,"MCU",V_'INITIALS'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INWRITE,INWRITE,INBR,INWRITE,INPL,INPL
*-------------------------------------------------------------------------*
INPL:     INP PLINE,15,5,10,V_'PRICE.LINE'
          IF CHANGED THEN
             PRINT @(30,4):'' "L#13"
             PLINES = PLINE
             END
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INPL,INPL,INWRITE,INPL,INBRK,INBRK
*-------------------------------------------------------------------------*
INBRK:    INP PLBRK,28,6,4,V_'D:Yes':VM:'No':VM:'Page'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INBRK,INBRK,INPL,INBRK,INDET,INDET
*-------------------------------------------------------------------------*
INDET:    INP DET,28,7,25,V_'D:Overcommits':VM:'Overcommits as of Today':VM:'All'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INDET,INDET,INBRK,INDET,INEXNS,INEXNS
*-------------------------------------------------------------------------*
INEXNS:   INP EX.NS,28,8,7,V_'D:Include':VM:'Exclude':VM:'Only'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INEXNS,INEXNS,INDET,INEXNS
*-------------------------------------------------------------------------*
INNOH:    INP NEG.ONH,63,9,1,'YN'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INNOH,INNOH,INEXNS,INNOH
*-------------------------------------------------------------------------*
INPRC:    INP PRT.PRC,28,10,1,'YN'
          IF F12 THEN GOTO FINISH
          ON MOVE+1 GOTO INPRC,INPRC,INNOH,INPRC,INPRC,INPRC
*-------------------------------------------------------------------------*
SUBS:     ON OPTION GOTO DOIT, DOIT, DOIT, GET.PLNS
*-------------------------------------------------------------------------*
GET.PLNS: PHYS.PLINE.SELECT PLINES
          IF DCOUNT(PLINES,VM)>1 THEN
             PRINT @(15,4):'' "L#10"
             PRINT @(30,4):BLINK$:'*Multiple*':NORM$
          END ELSE
             PRINT @(15,4):PLINES<1,1> "L#10"
             PRINT @(30,4):'' "L#13"
             END
          RETURN
*-------------------------------------------------------------------------*
DOIT:     IF BRCHS='' THEN PRINT BELL:; RETURN TO INBR
          PLBRK   = PLBRK[1,1]
          PH.SETUP.BR.ARGS BR,,TERR.TYPE,,BRDISP,BRLIST
          PH.EXE 'POE.PHR.BO.GPS.BETA',BRLIST,BRDISP,PLINES,DET,EX.NS,PLBRK,NEG.ONH,PRT.PRC,WRITER
          IF F12 THEN RETURN
          RETURN TO FINISH
*-------------------------------------------------------------------------*
FINISH:   WINDOW.CLOSE
          RETURN
!TSMITH~03/03/14~12:57
